home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / amiexpress / source / ae / code / ax3.00 / zmodem_send.c < prev    next >
Encoding:
C/C++ Source or Header  |  1980-01-03  |  1.7 KB  |  78 lines
  1. #include "bbs.h"
  2.  
  3. #define DSKBUFF   20480L                  /* For Sending */
  4. extern char Xprlib[];
  5. extern UBYTE serin[];
  6. extern char prototitle[];
  7. // extern BYTE ZWindow;
  8. char diskbuff[DSKBUFF];
  9.  
  10. int Zmodem_Send(char *flname)
  11. {
  12.  int c;
  13.  char *p, *q;
  14.  char temp[100];
  15.  
  16.  
  17.     if(Whence_The_Logon>=REMOTE_LOGON)
  18.         {
  19.         AEPutStr("\r\n");
  20.         AEPutStr(prototitle);
  21.         AEPutStr(": Ready to Send\r\nControl-X to Cancel\r\n");
  22.  
  23. //        if(strcmp(Xprlib,"INTERNAL") && GET_BIT(ACS_XPR_SEND))
  24. //            {
  25.             XPRSend(flname);
  26.             return(1);
  27. //            }
  28.  
  29. /*
  30.      sprintf(temp,"[Node %d] Transmit Window",Cmds->AcLvl[LVL_NODE_NUMBER]);
  31.      strcpy(ZModemInfo.TitleBar,temp);
  32.      ZModemInfo.RecPos=ZModemInfo.Filesize=ZModemInfo.ErrorPos=
  33.         ZModemInfo.LastTime=ZModemInfo.ApxTime=ZModemInfo.Cps=
  34.         ZModemInfo.Eff=ZModemInfo.ResumePos=0;
  35.      OpenZDisplay();
  36.      ZWindow=1;
  37.         Delay(50L);
  38.         AbortIO(ReadSerReq);
  39.         WaitIO(ReadSerReq);
  40.  
  41.         q = strlen(flname)+flname+1;
  42.         for(p = flname; p <= q; p++) {
  43.             if(*p==' ') { *p = '\0'; continue; }
  44.             if(*p=='\0') { *(++p) = '\0'; break; }
  45.         }
  46.  
  47.  if(!CheckIO(TimerMsg)) AbortIO(TimerMsg);
  48.           WaitIO(TimerMsg);
  49.    
  50.        c = proto(ReadSerReq, WriteSerReq, TimerMsg, &diskbuff[0], DSKBUFF,
  51.                    (long)Online_Baud, flname, 1, 0);
  52.  
  53.  
  54.         /* should restart all pending IO's */
  55.  
  56.         ReadSerReq->IOSer.io_Command = CMD_READ;
  57.         ReadSerReq->IOSer.io_Data    = (APTR)&serin[0];
  58.         ReadSerReq->IOSer.io_Length  = 1L;
  59.         SendIO(ReadSerReq);
  60.  
  61.      CloseZDisplay();
  62.      ZWindow=0;
  63.         Delay(70L);
  64.  
  65.      AEPutStr(prototitle);
  66.      if(c) AEPutStr(" download successful\r\n");
  67.      else  AEPutStr(" download unsuccessful\r\n");
  68.  
  69.         return c;
  70.  
  71. */
  72.  
  73.  }
  74.   else    AEPutStr("\r\nNot supported locally...");
  75.  
  76. return(0);
  77. }
  78.